<%
Dim Banco
Public sub AbreBanco()
	Set Banco = CreateObject("ADODB.CONNECTION")
	Banco.Open "provider=sqloledb;server=10.104.0.123;user id=sa;password=1234;initial catalog=Bd_diaria"
end sub

Public sub FechaBanco()
	Banco.close
	Set Banco = Nothing
end sub

function Dt(Entrada)
	dim dia, mes, ano, primeira, segunda
	Entrada = trim(Entrada)
	primeira = instr(Entrada,"/")
	segunda = instr(primeira+1,Entrada,"/")
	mes = mid(Entrada, primeira+1, (segunda - primeira)-1)
	dia = left(Entrada, primeira-1)
	ano = mid(Entrada,segunda+1,4)
	
	if len(Entrada) > 10 then
		Dt = ano & right("0" & mes,2) & right("0" & dia,2) & right(Entrada,6)
	else
		Dt = ano & right("0" & mes,2) & right("0" & dia,2)
	end if
end function
%>
